Filename | (eval 1132)[/usr/share/perl/5.10/CGI.pm:869] |
Statements | Executed 20 statements in 43µs |
Eval Invoked At | /usr/share/perl/5.10/CGI.pm line 869 |
Sibling evals | 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23 |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
2 | 2 | 2 | 51µs | 185µs | query_string | CGI::
Line | State ments |
Time on line |
Calls | Time in subs |
Code |
---|---|---|---|---|---|
1 | # spent 185µs (51+134) within CGI::query_string which was called 2 times, avg 93µs/call:
# once (32µs+95µs) by CGI::url at line 832 of CGI.pm
# once (20µs+39µs) by CGI::url at line 12 of (eval 1127)[CGI.pm:869] | ||||
2 | 2 | 4µs | 2 | 6µs | my($self) = self_or_default(@_); # spent 6µs making 2 calls to CGI::self_or_default, avg 3µs/call |
3 | 2 | 800ns | my($param,$value,@pairs); | ||
4 | 2 | 6µs | 2 | 28µs | for $param ($self->param) { # spent 28µs making 2 calls to CGI::param, avg 14µs/call |
5 | 2 | 5µs | 2 | 26µs | my($eparam) = escape($param); # spent 26µs making 2 calls to CGI::Util::escape, avg 13µs/call |
6 | 2 | 6µs | 2 | 58µs | for $value ($self->param($param)) { # spent 58µs making 2 calls to CGI::param, avg 29µs/call |
7 | 2 | 4µs | 2 | 16µs | $value = escape($value); # spent 16µs making 2 calls to CGI::Util::escape, avg 8µs/call |
8 | 2 | 500ns | next unless defined $value; | ||
9 | 2 | 4µs | push(@pairs,"$eparam=$value"); | ||
10 | } | ||||
11 | } | ||||
12 | 2 | 4µs | for (keys %{$self->{'.fieldnames'}}) { | ||
13 | push(@pairs,".cgifields=".escape("$_")); | ||||
14 | } | ||||
15 | 2 | 10µs | return join($USE_PARAM_SEMICOLONS ? ';' : '&',@pairs); | ||
16 | } | ||||
17 | |||||
18 | ; |